results %>% 
  count(athlete_name, name = "Number of Parkruns")
## # A tibble: 5 × 2
##   athlete_name `Number of Parkruns`
##   <chr>                       <int>
## 1 Bella                          38
## 2 Kat                            15
## 3 Lucia                          12
## 4 Matt                           72
## 5 Zach                           30